program e x e m p l o f o r d o 1 ;
var
i , n : integer ;
begin
writeln ( ’Informe um numero inteiro positivo : ’ ) ;
read ( n ) ;
f o r i := 1 to n do
writeln ( i ) ;
writeln ( ’Fim.’ ) ;
end .

